home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 April / CMCD0404.ISO / Software / Shareware / Multimedia / extrememov / extrememm2.6b3sharefull.exe / {app} / scripts / [AMAZON.FR] - (Full Import- 2° Generation) @Mehdi Bourmad 14_05_2003.txt < prev    next >
Encoding:
Text File  |  2003-05-14  |  11.1 KB  |  406 lines
  1. -----------------------------------------------
  2. -                 DivxManager                 -
  3. -            MagicScript Technology           -
  4. -          2002 Alessio "AleTsg" Viti         -
  5. -----------------------------------------------
  6. - Web :      AMAZON.FR                        -
  7. - Author :   Mehdi BOURMAD                    -
  8. - Date  :    14/05/2003                       -
  9. - Comments : Import All Information           -
  10. -----------------------------------------------
  11.  
  12. #MADEBY#=Mehdi BOURMAD
  13. #DATEBUILD#=14/05/2003
  14. #WEBSITE#=AMAZON.FR - (FRENCH)
  15. #NOTE#=First release
  16. #SCRIPTQUALITY#=3
  17. #ICONQUALITY#=3
  18. #SCRIPTGENERATION#=2
  19.  
  20. #//WEBQUERY#=http://www.amazon.fr/exec/obidos/search-handle-url/%20index=dvd-fr&field-keywords=sleepy+hollow
  21. #WEBQUERY#=http://www.amazon.fr/exec/obidos/search-handle-url/%20index=dvd-fr&field-keywords=#MOVIE#
  22. #WEBQUERYID#=http://www.amazon.fr/exec/obidos/ASIN/#MOVIEUPDATEID#
  23.  
  24. #RIGHTPAGEFOUND#
  25.     #STARTREADWEB#
  26.     #FINDLINE#=Amazon#12##ONERROR#=*STOP*
  27.     #FIND#=Amazon#01##ONERROR#=*STOP*
  28.     #COMPUTECURSOR#=-1
  29.     #PUTCURSOR#=#01#
  30.     #PUT#=9#02#
  31.     #TAKEWORDLEN#=#03#,#01#,#02#
  32.     #PUT#=Amazon.fr#04# 
  33.     #CONDITIONRIGHTPAGE# #03#<>#04#
  34. #ENDRIGHTPAGEFOUND#
  35.  
  36. #CREATEMOVIELIST#
  37.     #STARTREADWEB#
  38.     #WRITETITLELIST#=                          
  39.     #WRITETITLELIST#=RΘsultats
  40.     #WRITETITLELIST#=---------
  41.     #FINDLINE#=résultats au total pour#12##ONERROR#=*OK*
  42.     #PUT#=0#13#
  43.     #IF# #13#==#12#
  44.         #GOTO#=ENDMOVIES-STEP1
  45.     #ENDIF#
  46.     :REPEATMOVIELIST-1 
  47.         #FIND#=<table cellpadding=5 cellspacing=0 border=0 width=180>#25# #ONERROR#=*OK*         //the end of the list
  48.         #PUTCURSOR#=#21#
  49.         #SETCURSOR#=1
  50.         #FIND#=résultats au total pour#12##ONERROR#=*OK*
  51.         :REPEATMOVIELIST-2
  52.           // Get item value
  53.           #FIND#=width=100% class="small"#01# #ONERROR#=*OK*
  54.                 #IF# #01#==#13#
  55.             // if the list is finish, going out
  56.             #GOTO#=ENDMOVIES
  57.         #ENDIF#
  58.         #IF# #01#>>#25#
  59.             // if the list is over the </OL> it means that is finish
  60.             #GOTO#=ENDMOVIES
  61.         #ENDIF#
  62.         #FIND#=href#01# #ONERROR#=*OK*
  63.         #FIND#=ASIN#01# #ONERROR#=*OK*
  64.         #FIND#=/#01# #ONERROR#=*OK*
  65.         #COMPUTECURSOR#=+1
  66.         #FIND#=/qid=#02# #ONERROR#=*OK*
  67.         #TAKEWORD#=#06#,#01#,#02#
  68.           // Get item name
  69.           #FIND#=<b>#01# #ONERROR#=*OK*
  70.                 #IF# #01#==#13#
  71.             // if the list is finish, going out
  72.             #GOTO#=ENDMOVIES
  73.         #ENDIF#
  74.         #IF# #01#>>#25#
  75.             // if the list is over the </OL> it means that is finish
  76.             #GOTO#=ENDMOVIES
  77.         #ENDIF#
  78.         #FIND#=>#04# #ONERROR#=*OK*
  79.         #COMPUTECURSOR#=+1
  80.         #FIND#=</#05# #ONERROR#=*OK*
  81.         #COMPUTEVAR#=#05#=-1
  82.         #TAKEWORD#=#07#,#04#,#05#
  83.         #CHECKVARIABLE#=#07#
  84.         #STARTDELETETAGS#
  85.         #STARTSUBSTITUTETAGS#
  86.         #WRITETITLELIST#=http://www.amazon.fr/exec/obidos/tg/detail/-/dvd/#06#/tech-info/    ---> #07#
  87.         #//WRITETITLELIST#=http://www.amazon.fr#06#    ---> #07#
  88.         #GOTO#=REPEATMOVIELIST-2
  89.         :ENDMOVIES
  90.     :ENDMOVIES-STEP1
  91.         // If only one movie is find, amazon go directly to its page. I'm trying to get movie-id
  92.         #STARTREADWEB#
  93.         // Movie ID
  94.         #FINDLINE#=/exec/obidos/tg/detail/-/dvd/#12##ONERROR#=*STOP*
  95.         #PUT#=0#13#
  96.         #IF# #13#==#12#
  97.             #GOTO#=ENDMOVIES-END
  98.         #ENDIF#
  99.         #FIND#=/dvd/#01##ONERROR#=*STOP*
  100.         #COMPUTECURSOR#=+4
  101.         #PUTCURSOR#=#01#
  102.         #COMPUTECURSOR#=+1
  103.         #FIND#=/#02##ONERROR#=*STOP*
  104.         #TAKEWORD#=#06#,#01#,#02#
  105.         #CHECKVARIABLE#=#06#
  106.         #STARTDELETETAGS#
  107.         #STARTSUBSTITUTETAGS#
  108.         // Movie Title
  109.         #STARTREADWEB#
  110.         #FINDLINE#=<b class="sans">#12##ONERROR#=*STOP*
  111.         #FIND#=>#01##ONERROR#=*STOP*
  112.         #FIND#=<#02##ONERROR#=*STOP*
  113.         #TAKEWORD#=#07#,#01#,#02#
  114.         #CHECKVARIABLE#=#07#
  115.         #STARTDELETETAGS#
  116.         #STARTSUBSTITUTETAGS#
  117.         #WRITETITLELIST#=http://www.amazon.fr/exec/obidos/tg/detail/-/dvd/#06#/tech-info/    ---> #07#
  118.     :ENDMOVIES-END
  119.     //-----------------------------------------------------------------------
  120. #ENDCREATEMOVIELIST#
  121.  
  122. #MOVIETITLE#
  123.     #STARTREADWEB#
  124.     #FINDLINE#=<b class="sans">#12##ONERROR#=*STOP*
  125.     #FIND#=>#01# #ONERROR#=*STOP*
  126.     #FIND#=<#02# #ONERROR#=*STOP*
  127.     #TAKEWORD#=#03#,#01#,#02#
  128.     #CHECKVARIABLE#=#03#
  129.     #STARTDELETETAGS#
  130.     #STARTSUBSTITUTETAGS#
  131.     #TITLE#=#03# #ONERROR#=*ASK*
  132. #ENDMOVIETITLE#
  133.  
  134. #DIRECTOR#
  135.     #STARTREADWEB#
  136.     #PUT#=0#11#
  137.     #FINDLINE#=Réalisateur#10##ONERROR#=*STOP*
  138.     #FIND#=">#01##ONERROR#=*STOP*
  139.     #COMPUTECURSOR#=+1
  140.     #PUTCURSOR#=#01#
  141.     #FIND#=<#02##ONERROR#=*STOP*
  142.     #TAKEWORD#=#03#,#01#,#02#
  143.     #CHECKVARIABLE#=#03#
  144.     #STARTDELETETAGS#
  145.     #STARTSUBSTITUTETAGS#
  146.     #TAKEDIRECTOR#=#03# #ONERROR#=*ASK*
  147. #ENDDIRECTOR#
  148.  
  149. #ACTORS#
  150.     #STARTREADWEB#
  151.     #PUT#=0#11#
  152.     #FINDLINE#=Avec :#10##ONERROR#=*STOP*
  153.     #FIND#=<br>#22##ONERROR#=*STOP*
  154.     #STARTREADWEB#
  155.     #FINDLINE#=Avec :#10##ONERROR#=*STOP*
  156.          :REPEATACTORS1
  157.          #FIND#=">#01##ONERROR#=*STOP*
  158.          #IF# #01#==#11#
  159.              #GOTO#=ENDACTORS1
  160.          #ENDIF#
  161.          #PUTCURSOR#=#23#
  162.          #IF# #01#<<#22#
  163.              #FIND#=>#01##ONERROR#=*STOP*
  164.              #FIND#=<#02##ONERROR#=*STOP*
  165.              #TAKEWORD#=#03#,#01#,#02#
  166.              #CHECKVARIABLE#=#03#
  167.              #STARTDELETETAGS#
  168.              #STARTSUBSTITUTETAGS#
  169.              #TAKEACTOR#=#03#
  170.              #GOTO#=REPEATACTORS1
  171.          #ENDIF#
  172.     :ENDACTORS1
  173. #ENDACTORS#
  174.  
  175. #STUDIO#
  176.     #STARTREADWEB#
  177.     #FINDLINE#=Éditeur :#10##ONERROR#=*STOP*
  178.     #PUT#=0#39#
  179.     #FIND#= : #01##ONERROR#=*STOP*
  180.     #COMPUTECURSOR#=+7
  181.     #PUTCURSOR#=#01#
  182.     #FIND#=<br>#02##ONERROR#=*STOP*
  183.     #TAKEWORD#=#03#,#01#,#02#
  184.     #CHECKVARIABLE#=#03#
  185.     #STARTDELETETAGS#
  186.     #STARTSUBSTITUTETAGS#
  187.     #TAKESTUDIO#=#03#
  188. #ENDSTUDIO#
  189.  
  190. #MOVIEID#
  191.     #STARTREADWEB#
  192.     #FINDLINE#=/exec/obidos/tg/detail/-/dvd/#10##ONERROR#=*STOP*
  193.     #PUT#=0#39#
  194.     #FIND#=/dvd/#01##ONERROR#=*STOP*
  195.     #COMPUTECURSOR#=+4
  196.     #PUTCURSOR#=#01#
  197.     #COMPUTECURSOR#=+1
  198.     #FIND#=/#02##ONERROR#=*STOP*
  199.     #TAKEWORD#=#03#,#01#,#02#
  200.     #CHECKVARIABLE#=#03#
  201.     #STARTDELETETAGS#
  202.     #STARTSUBSTITUTETAGS#
  203.     #TAKEMOVIEID#=#03#
  204. #ENDMOVIEID#
  205.  
  206. #POSTER#
  207.     // Retrieve Movie ID
  208.     #STARTREADWEB#
  209.     #FINDLINE#=/exec/obidos/tg/detail/-/dvd/#10##ONERROR#=*STOP*
  210.     #PUT#=0#39#
  211.     #FIND#=/dvd/#01##ONERROR#=*STOP*
  212.     #COMPUTECURSOR#=+4
  213.     #PUTCURSOR#=#01#
  214.     #COMPUTECURSOR#=+1
  215.     #FIND#=/#02##ONERROR#=*STOP*
  216.     #TAKEWORD#=#03#,#01#,#02#
  217.     #CHECKVARIABLE#=#03#
  218.  
  219.     #PUT#=0#09#
  220.     #STRING#=#50#=http://www.amazon.fr/exec/obidos/tg/detail/-/dvd/#03#/pictures/
  221.     #OPENNEWWEB#=#50#
  222.          #FINDLINE#=more-pictures><img#12##ONERROR#=*OK*
  223.          #IF# #12#==#09#
  224.              #GOTO#=NOPOSTER
  225.          #ENDIF#
  226.          #REPEAT#
  227.             #FIND#=http#01# #ONERROR#=*OK*
  228.             #IF# #01#<>#09#
  229.               // Get first part of url
  230.             #FIND#=TZZZ#02# #ONERROR#=*OK*
  231.                 #TAKEWORD#=#03#,#01#,#02#
  232.               #//COMPUTECURSOR#=+1
  233.               #PUTCURSOR#=#04#
  234.               // Get second part of url
  235.             #FIND#="#05# #ONERROR#=*OK*
  236.                 #TAKEWORD#=#06#,#04#,#05#
  237.               #STRING#=#07#=h#03#L#06#
  238.               #TAKEPOSTER#=#07#
  239.           #ENDIF#
  240.             #FIND#=more-pictures><img#12##ONERROR#=*OK*
  241.         #WHILE# #09#<>#12#    
  242.     :NOPOSTER
  243.     #RESTOREWEB#
  244. #ENDPOSTER#
  245.  
  246. #DELETETAGS#
  247.     #DELETEWORD#=         
  248.     #DELETEWORD#=        
  249.     #DELETEWORD#=       
  250.     #DELETEWORD#=      
  251.     #DELETEWORD#=     
  252.     #DELETEWORD#=    
  253.     #DELETEWORD#=   
  254.     #DELETEWORD#=  
  255.     #DELETEWORD#=
  256.  
  257.     #DELETEWORD#=    
  258.     #DELETEWORD#=</b>
  259.     #DELETEWORD#= 
  260.     #DELETEWORD#=</a>
  261.     #DELETEWORD#=<br>
  262.     #DELETEWORD#=</br>
  263.     #DELETEWORD#=<BR>
  264.     #DELETEWORD#=</BR>
  265.     #DELETEWORD#=</P>
  266.     #DELETEWORD#=</p>
  267.     #DELETEWORD#=</b>
  268.     #DELETEWORD#=<b>
  269.     #DELETEWORD#=</B>
  270.     #DELETEWORD#=<B>
  271.     #DELETEWORD#=</BLOCKQUOTE>
  272.     #DELETEWORD#=</blockquote>
  273. #ENDDELETETAGS#
  274.  
  275. #SUBSTITUTETAGS#
  276.     #SUBSTITUTEWORD#= = 
  277.     #SUBSTITUTEWORD#=¡=í
  278.     #SUBSTITUTEWORD#=¢=ó
  279.     #SUBSTITUTEWORD#=£=ú
  280.     #SUBSTITUTEWORD#=¤=ñ
  281.     #SUBSTITUTEWORD#=¥=Ñ
  282.     #SUBSTITUTEWORD#=¦=ª
  283.     #SUBSTITUTEWORD#=§=º
  284.     #SUBSTITUTEWORD#=¨=¿
  285.     #SUBSTITUTEWORD#=©=⌐
  286.     #SUBSTITUTEWORD#=ª=¬
  287.     #SUBSTITUTEWORD#=«=½
  288.     #SUBSTITUTEWORD#=¬=¼
  289.     #SUBSTITUTEWORD#=­=¡
  290.     #SUBSTITUTEWORD#=®=«
  291.     #SUBSTITUTEWORD#=¯=»
  292.     #SUBSTITUTEWORD#=°=░
  293.     #SUBSTITUTEWORD#=±=▒
  294.     #SUBSTITUTEWORD#=²=▓
  295.     #SUBSTITUTEWORD#=³=│
  296.     #SUBSTITUTEWORD#=´=┤
  297.     #SUBSTITUTEWORD#=µ=╡
  298.     #SUBSTITUTEWORD#=¶=╢
  299.     #SUBSTITUTEWORD#=·=╖
  300.     #SUBSTITUTEWORD#=¸=╕
  301.     #SUBSTITUTEWORD#=¹=╣
  302.     #SUBSTITUTEWORD#=º=║
  303.     #SUBSTITUTEWORD#=»=╗
  304.     #SUBSTITUTEWORD#=¼=╝
  305.     #SUBSTITUTEWORD#=½=╜
  306.     #SUBSTITUTEWORD#=¾=╛
  307.     #SUBSTITUTEWORD#=¿=┐
  308.     #SUBSTITUTEWORD#=À=└
  309.     #SUBSTITUTEWORD#=Á=┴
  310.     #SUBSTITUTEWORD#=Â=┬
  311.     #SUBSTITUTEWORD#=Ã=├
  312.     #SUBSTITUTEWORD#=Ä=─
  313.     #SUBSTITUTEWORD#=Å=┼
  314.     #SUBSTITUTEWORD#=Æ=╞
  315.     #SUBSTITUTEWORD#=Ç=╟
  316.     #SUBSTITUTEWORD#=È=╚
  317.     #SUBSTITUTEWORD#=É=╔
  318.     #SUBSTITUTEWORD#=Ê=╩
  319.     #SUBSTITUTEWORD#=Ë=╦
  320.     #SUBSTITUTEWORD#=Ì=╠
  321.     #SUBSTITUTEWORD#=Í=═
  322.     #SUBSTITUTEWORD#=Î=╬
  323.     #SUBSTITUTEWORD#=Ï=╧
  324.     #SUBSTITUTEWORD#=Ð=╨
  325.     #SUBSTITUTEWORD#=Ñ=╤
  326.     #SUBSTITUTEWORD#=Ò=╥
  327.     #SUBSTITUTEWORD#=Ó=╙
  328.     #SUBSTITUTEWORD#=Ô=╘
  329.     #SUBSTITUTEWORD#=Õ=╒
  330.     #SUBSTITUTEWORD#=Ö=╓
  331.     #SUBSTITUTEWORD#=×=╫
  332.     #SUBSTITUTEWORD#=Ø=╪
  333.     #SUBSTITUTEWORD#=Ù=┘
  334.     #SUBSTITUTEWORD#=Ú=┌
  335.     #SUBSTITUTEWORD#=Û=█
  336.     #SUBSTITUTEWORD#=Ü=▄
  337.     #SUBSTITUTEWORD#=Ý=▌
  338.     #SUBSTITUTEWORD#=Þ=▐
  339.     #SUBSTITUTEWORD#=ß=▀
  340.     #SUBSTITUTEWORD#=à=α
  341.     #SUBSTITUTEWORD#=á=ß
  342.     #SUBSTITUTEWORD#=â=Γ
  343.     #SUBSTITUTEWORD#=ã=π
  344.     #SUBSTITUTEWORD#=ä=Σ
  345.     #SUBSTITUTEWORD#=å=σ
  346.     #SUBSTITUTEWORD#=æ=µ
  347.     #SUBSTITUTEWORD#=ç=τ
  348.     #SUBSTITUTEWORD#=è=Φ
  349.     #SUBSTITUTEWORD#=é=Θ
  350.     #SUBSTITUTEWORD#=ê=Ω
  351.     #SUBSTITUTEWORD#=ë=δ
  352.     #SUBSTITUTEWORD#=ì=∞
  353.     #SUBSTITUTEWORD#=í=φ
  354.     #SUBSTITUTEWORD#=î=ε
  355.     #SUBSTITUTEWORD#=ï=∩
  356.     #SUBSTITUTEWORD#=ð=≡
  357.     #SUBSTITUTEWORD#=ñ=±
  358.     #SUBSTITUTEWORD#=ò=≥
  359.     #SUBSTITUTEWORD#=ó=≤
  360.     #SUBSTITUTEWORD#=ô=⌠
  361.     #SUBSTITUTEWORD#=õ=⌡
  362.     #SUBSTITUTEWORD#=ö=÷
  363.     #SUBSTITUTEWORD#=÷=≈
  364.     #SUBSTITUTEWORD#=ø=°
  365.     #SUBSTITUTEWORD#=ù=∙
  366.     #SUBSTITUTEWORD#=ú=·
  367.     #SUBSTITUTEWORD#=û=√
  368.     #SUBSTITUTEWORD#=ü=ⁿ
  369.     #SUBSTITUTEWORD#=ý=²
  370.     #SUBSTITUTEWORD#=þ=■
  371.     #SUBSTITUTEWORD#=ÿ= 
  372.     #SUBSTITUTEWORD#="="
  373. #ENDSUBSTITUTETAGS#
  374.  
  375.  
  376.  
  377.  
  378.  
  379.  
  380.  
  381.  
  382.  
  383.  
  384.  
  385.  
  386.  
  387.  
  388.  
  389.  
  390.  
  391.  
  392.  
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399.  
  400.  
  401.  
  402.  
  403.  
  404.  
  405.  
  406.